home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
vpi1_330.zip
/
MEMODEMO.PRG
< prev
next >
Wrap
Text File
|
1992-01-09
|
1KB
|
49 lines
**********************************************************************
** MEMODEMO.PRG
** (C) Copyright 1991-1992, Sub Rosa Publishing Inc.
** A VP-Info demonstration program provided to VP-Info users.
** This program may be copied freely. If it is used in commercial code,
** please credit the source, Sub Rosa Publishing Inc.
**
** MEMODEMO demonstrates the use of MEMO fields.
**
** MEMODEMO uses the files MEMODEMO.DBF and MEMODEMO.DBT
**
** Bernie Melman and Sid Bursten
***********************************************************************
ON escape
WINDOW
CLS
Chain samples
ENDON
USE memodemo ; will open data file and memo file
WINDOW
CLS
DO WHILE t ; set up infinate loop
WINDOW 1,2,9,78
CLS
TEXT
NOTE NUMBER: #NOTE_NUM
NOTE DESCRIPTION: #NOTE_NOTE
press a key:
- for previous memo
+ for next memo
q or ESC to exit
ENDTEXT
WINDOW 12,2,23,78
TEXT m.note ; displays the current memo
dummy=inkey()
DO CASE
CASE dummy=asc('-')
IF #>1
SKIP -1
ENDIF
CASE dummy=asc('+')
SKIP
CASE dummy=asc('q') .or. dummy=asc('Q')
WINDOW
CLS
chain samples
ENDCASE
ENDDO